home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_33630.txt < prev    next >
Text File  |  1989-06-13  |  6KB  |  284 lines
  1. -- card: 33630 from stack: in
  2. -- bmap block id: 41289
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=332 top=21 right=43 bottom=432
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: RESET
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put 0 into card field F1
  23.   put 0 into card field F2
  24.   put 0 into card field F3
  25.   put 0 into card field F4
  26.   put 0 into card field F5
  27.   put 0 into card field F6
  28.   put 0 into card field F7
  29.   put 0 into card field F8
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 8003
  37. -- rect: left=333 top=145 right=167 bottom=433
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: SELFED
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   delete line 1 of card field F1
  49.   delete line 1 of card field F2
  50.   delete line 1 of card field F3
  51.   delete line 1 of card field F4
  52.   repeat 32 times
  53.     put random of 32 into it
  54.     if it <= 18 then
  55.       add 1 to card field F1
  56.     end if
  57.     if it >=19 and it <=24 then
  58.       add 1 to card field F2
  59.     end if
  60.     if it >= 25 and it <=30 then
  61.       add 1 to card field F3
  62.     end if
  63.     if it >=31 then
  64.       add 1 to card field F4
  65.     end if
  66.   end repeat
  67.   add card field F1 to card field  F5
  68.   add card field F2 to card field F6
  69.   add card field F3 to card field F7
  70.   add card field F4 to card field F8
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 3 (field)
  76. -- low flags: 00
  77. -- high flags: 0002
  78. -- rect: left=273 top=179 right=205 bottom=327
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: F1
  87.  
  88.  
  89. -- part 4 (field)
  90. -- low flags: 00
  91. -- high flags: 0002
  92. -- rect: left=330 top=179 right=205 bottom=384
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: F2
  101.  
  102.  
  103. -- part 5 (field)
  104. -- low flags: 00
  105. -- high flags: 0002
  106. -- rect: left=387 top=179 right=205 bottom=441
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: F3
  115.  
  116.  
  117. -- part 6 (field)
  118. -- low flags: 00
  119. -- high flags: 0002
  120. -- rect: left=443 top=179 right=205 bottom=497
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 3
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: F4
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 00
  133. -- high flags: 0002
  134. -- rect: left=272 top=257 right=283 bottom=326
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: F5
  143.  
  144.  
  145. -- part 8 (field)
  146. -- low flags: 00
  147. -- high flags: 0002
  148. -- rect: left=330 top=257 right=283 bottom=384
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 3
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: F6
  157.  
  158.  
  159. -- part 9 (field)
  160. -- low flags: 00
  161. -- high flags: 0002
  162. -- rect: left=388 top=257 right=283 bottom=442
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 3
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: F7
  171.  
  172.  
  173. -- part 10 (field)
  174. -- low flags: 00
  175. -- high flags: 0002
  176. -- rect: left=446 top=257 right=283 bottom=500
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 3
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: F8
  185.  
  186.  
  187. -- part 11 (button)
  188. -- low flags: 00
  189. -- high flags: 8003
  190. -- rect: left=335 top=318 right=340 bottom=435
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: CHI SQUARE
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   global bagone
  202.   global bagtwo
  203.   global bagthree
  204.   global bagfour
  205.   put the value of card field F5 into "bagone"
  206.   put the value of card field F6 into "bagtwo"
  207.   put the value of card field F7 into "bagthree"
  208.   put the value of card field F8 into "bagfour"
  209.   go to card id 25732
  210.   put 0 into card field class1
  211.   put 0 into card field class2
  212.   put 0 into card field class3
  213.   put 0 into card field class4
  214.   put 0 into card field F5
  215.   put 0 into card field F6
  216.   put 0 into card field F7
  217.   put 0 into card field F8
  218.   put bagone into card field "CLASS1"
  219.   put bagtwo into card field "CLASS2"
  220.   put bagthree into card field "CLASS3"
  221.   put bagfour into card field "CLASS4"
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 13 (button)
  227. -- low flags: 00
  228. -- high flags: 8003
  229. -- rect: left=159 top=315 right=337 bottom=259
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: SUB HEADINGS
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   go to card id 36700
  241. end mouseUp
  242.  
  243.  
  244.  
  245.  
  246. -- part contents for background part 1
  247. ----- text -----
  248. DIHYBRID CROSS
  249.  
  250. -- part contents for background part 2
  251. ----- text -----
  252. The trait under study here is eye color. A true breeding fly with scarlet eyes is mated with a true breeding fly displaying brown eyes. The F1 are all wild-type flies. Self the F1 and observe the data spread in the F2. Note that you might have to run this experiment several times to get a statistically significant ratio in the F2. Try to determine the nature of the cross.
  253.  
  254. -- part contents for card part 7
  255. ----- text -----
  256. 0
  257.  
  258. -- part contents for card part 8
  259. ----- text -----
  260. 0
  261.  
  262. -- part contents for card part 9
  263. ----- text -----
  264. 0
  265.  
  266. -- part contents for card part 10
  267. ----- text -----
  268. 0
  269.  
  270. -- part contents for card part 3
  271. ----- text -----
  272. 0
  273.  
  274. -- part contents for card part 5
  275. ----- text -----
  276. 0
  277.  
  278. -- part contents for card part 4
  279. ----- text -----
  280. 0
  281.  
  282. -- part contents for card part 6
  283. ----- text -----
  284. 0